home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 18 / forthsup / midi.fth < prev    next >
Encoding:
Text File  |  1986-09-18  |  615 b   |  18 lines
  1. \ Simple minded interface to the MIDI ports.
  2. decimal
  3.  
  4. 1 bios: bconstat { w.dev -- l.ready? }
  5. 2 bios: bconin   { w.dev -- l.char }
  6. 3 bios: bconout  { w.char w.dev -- }
  7. 8 bios: bcostat  { w.dev -- l.ready? }
  8. \ 0 printer    1 aux ( modem )  2 con  3 midi  4 keyboard
  9. 3 constant midi-handle
  10.  
  11. : midi-key ( -- char )  midi-handle bconin ;
  12. : midi-emit ( char -- ) midi-handle bconout ;
  13. : midi-key? ( -- flag ) midi-handle bconstat ;
  14. : midi-emit? ( -- flag ) midi-handle bcostat ;
  15.  
  16. \ cnt is the number of chars to write, minus 1 ( Don't ask me why)
  17. 12 xbios: midiws { a.ptr w.cnt -- }  \ Midi write string
  18.